home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d27
/
dspsrcdr.arc
/
DSPSRCDR.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1991-12-04
|
2KB
|
32 lines
/* (C) - Copyright 1988 by Shaw-Barton, Inc., Coshocton, OH 43812 */
/* */
/* TITLE: DSPSRCDIR (CMD) */
/* AUTHOR: Joseph L. Bolen */
/* DATE WRITTEN: August 1988 */
/* */
/* DESCRIPTION: Selective reformat of DSPFD TYPE(*MBRLIST) */
/* */
/* CALLS: DSPSRCDIR1 (CLP) as Comand Program Processor */
/* */
DSPSRCDIR: CMD PROMPT('Display Source Directory')
PARM KWD(TYPE) TYPE(*CHAR) LEN(5) DFT(*RPG) +
SPCVAL((*RPG) (*CLP) (*CMD) (*DSPF) (*PRTF) +
(*PF) (*LF) (*TXT) (*ALL)) PROMPT('Source +
Type:')
PARM KWD(MBR) TYPE(*GENERIC) LEN(10) DFT(*ALL) +
SPCVAL((*ALL)) PROMPT('Member Name- +
Generic*:')
PARM KWD(FILE) TYPE(FILE) PROMPT('Source file +
name- Generic*:')
PARM KWD(OUTPUT) TYPE(*LGL) RSTD(*YES) DFT(*) +
SPCVAL((* '0') (*LIST '1') (*PRINT '1')) +
EXPR(*YES) PROMPT('Output option (* or +
*Print):')
FILE: QUAL TYPE(*GENERIC) DFT(QRPGSRC) SPCVAL((*ALL) +
(QRPGSRC) (QCLSRC) (QCMDSRC) (QDDSSRC) +
(QTXTSRC))
QUAL TYPE(*NAME) DFT(*USRLIBL) SPCVAL((*USRLIBL) +
(*ALLUSR) (*ALL) (*LIBL)) PROMPT('Library +
name:')